execute-extended-command prompt fix (bug#13395)

* lisp/simple.el (execute-extended-command): Doc fix.
Bind prefix-arg around read-extended-command, for prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04d5c3386592d3122977e67099a1d8e6d57399cf..0eb971be1ada722b3b3879a30beec63ee7cf2782 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-01-09  Glenn Morris  <rgm@gnu.org>
+
+       * simple.el (execute-extended-command): Doc fix.
+       Bind prefix-arg around read-extended-command, for prompt.  (Bug#13395)
+
 2013-01-09  Chong Yidong  <cyd@gnu.org>
 
        * faces.el (read-face-name): Doc fix.

diff --git a/lisp/simple.el b/lisp/simple.el
index 05829bbdc65998667355aa7ec18cf01e716f062f..57307baad8c4744e63058b685ec8ae1dc8a7d85e 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1391,14 +1391,16 @@ If the value is non-nil and not a number, we wait 2 seconds."
   ;; Aaron S. Hawley <aaron.s.hawley(at)gmail.com> 2009-08-24
   "Read function name, then read its arguments and call it.
 
-To pass a numeric argument to the command you are invoking with, specify
+To pass a numeric argument to the command you are invoking, specify
 the numeric argument to this command.
 
 Noninteractively, the argument PREFIXARG is the prefix argument to
 give to the command you invoke, if it asks for an argument."
   (interactive (list current-prefix-arg (read-extended-command)))
   ;; Emacs<24 calling-convention was with a single `prefixarg' argument.
-  (if (null command-name) (setq command-name (read-extended-command)))
+  (if (null command-name)
+      (setq command-name (let ((current-prefix-arg prefixarg)) ; for prompt
+                           (read-extended-command))))
   (let* ((function (and (stringp command-name) (intern-soft command-name)))
          (binding (and suggest-key-bindings
                       (not executing-kbd-macro)